\input mftmac
 \outer\def↑↑L{\par\vfill\eject} % obeypages
 \thinmuskip=5mu
 \thickmuskip=6mu plus 6mu

 % nine-point type:
 \catcode`@=11 % borrow the private macros of PLAIN (with care)
 \def\ninebig#1{{\hbox{$\textfont0=\tenrm\textfont2=\tensy
   \left#1\vbox to7.25pt{}\right.\n@space$}}}
 \catcode`@=12 % now @ is a nonletter again
 \font\ninerm=amr9 \font\sixrm=amr6
 \font\ninei=ammi9 \font\sixi=ammi6
 \skewchar\ninei='177 \skewchar\sixi='177
 \font\ninesy=amsy9 \font\sixsy=amsy6
 \skewchar\ninesy='60 \skewchar\sixsy='60
 \font\nineit=amti9
 \font\ninesl=amsl9
 \font\ninebf=ambx9 \font\sixbf=ambx6
 \font\ninett=amtt9 \hyphenchar\ninett=-1
 \def\rm{\fam0\ninerm}
 \textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
 \textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei
 \textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
 \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
 \def\it{\fam\itfam\nineit}
 \textfont\itfam=\nineit
 \def\sl{\fam\slfam\ninesl}
 \textfont\slfam=\ninesl
 \def\bf{\fam\bffam\ninebf}
 \textfont\bffam=\ninebf \scriptfont\bffam=\sixbf
  \scriptscriptfont\bffam=\fivebf
 \def\tt{\fam\ttfam\ninett}
 \textfont\ttfam=\ninett
 \baselineskip=11pt
 \def\MF{{\manual hijk}\-{\manual lmnj}}
 \let\big=\ninebig
 \setbox\strutbox=\hbox{\vrule height8pt depth3pt width0pt}
 \rm
 \hsize=29pc % this is the size of pages in the Computer Modern book
 \vsize=44pc % likewise

 \mag=\magstep1
$\9 The Computer Modern Symbols family (by D. E. Knuth, 1979--1985)\par
\BL
$\2{font\_coding\_scheme}:=\7"TeX math symbols";$\par
$\5{mode\_setup};\ \5{font\_setup};$\par
\BL
$\2{input}\\{calu};\ \9 upper case calligraphic alphabet\par
\BL
$\2{font\_slant}\\{slant};$\par
$\2{font\_xheight}\\{x\_height}\SH ;$\par
$\2{font\_quad}18u\SH \2{if}\1{not}\\{monospace}\?+4\\{letter\_fit}\SH \3{fi};$%
\par
$\9 (The spacing is zero so that \TeX\ always adds the italic correction.)\par
$\9 (The calling file should give the other math symbol font parameters.)\par
\BL
$\\{slant}:=\\{mono\_charic}\SH :=0;\ \9 the remaining characters will not be
slanted\par
$\\{currenttransform}:=\\{identity}\6{yscaled}\\{aspect\_ratio}\6{scaled}%
\\{granularity};$\par
$\2{input}\\{symbol}\9 the symbols\par
\BL
$\2{if}\1{not}\\{monospace}\?$\par
\quad$\\{skewchar}=\1{oct}\7"060";\ \\{skew}\SH =.5u\SH ;$\par
\quad$\2{ligtable}\7"I"\?\7"T"\?\7"V"\?\\{skewchar}\6{kern}\\{skew}\SH ;$\par
\quad$\2{ligtable}\7"K"\?\\{skewchar}\6{kern}2\\{skew}\SH ;$\par
\quad$\2{ligtable}\7"D"\?\7"N"\?\7"P"\?\7"R"\?\7"U"\?\7"W"\?\\{skewchar}%
\6{kern}3\\{skew}\SH ;$\par
\quad$\2{ligtable}\7"E"\?\7"F"\?\7"G"\?\7"H"\?\7"O"\?\7"Q"\?\\{skewchar}%
\6{kern}4\\{skew}\SH ;$\par
\quad$\2{ligtable}\7"B"\?\7"C"\?\7"L"\?\7"M"\?\7"S"\?\7"X"\?\7"Y"\?\7"Z"\?%
\\{skewchar}\6{kern}5\\{skew}\SH ;$\par
\quad$\2{ligtable}\7"J"\?\\{skewchar}\6{kern}6\\{skew}\SH ;$\par
\quad$\2{ligtable}\7"A"\?\\{skewchar}\6{kern}7\\{skew}\SH ;$\par
$\!\3{fi};$\par
\BL
$\2{if}\1{known}\\{Xerox\_world}\?\\{font\_family}\2{font\_identifier};$\par
\quad$\\{coding\_scheme}\2{font\_coding\_scheme};$\par
\quad$\\{font\_face\_byte}_{254}-2\1{round}\\{designsize};\3{fi}\9 Dover code
for CM; 154==AM\par
$\\{tracingstats}:=10;\ \9 temporary\par
$\!\3{end}$\par